home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ MSO Cursors 1.xpl < prev    next >
Text File  |  2001-11-27  |  2KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="8"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 97"
  5. "NAME"="Office 97 Cursors"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Edit path..."
  8. "DESCRIPTION 1"="Office 97 includes its own set of animated cursors that you can use, but you can change them if you wish. Just click on an action above, and then click "Edit Path..." to change the path of the cursor assigned to it."
  9. "DESCRIPTION 2"="Note: You should close all Office programs before making any changes."
  10. "COMMENT 1"="Thanks to Myself for the idea."
  11. "VERSION"="1.05"
  12. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  14. "CONTACTURL"="http://www.xteq.com/"
  15.  
  16. sP="HKCU\Software\Microsoft\Office\8.0\Common\Cursors"
  17.  
  18. SUB Plugin_Initialize
  19.  s=RegPathExists(sP)
  20.  if s=false then
  21.   Call Disable()
  22.  else
  23.   iCount=RegEnumValues(sP)
  24.   For h=1 to icount
  25.    j=RegEnumElement(h)
  26.    Call SetUIElement(h,j)
  27.   Next
  28.  end if
  29. END SUB
  30.  
  31. SUB Plugin_CheckData
  32. END SUB
  33.  
  34. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  if ElementSubIndex>0 then 'OK, user has selected an item
  36.  ' (is it me or does this appear in almost every listbox plug-in? - NT)
  37.   
  38.   If ElementIndex=1 then ' We need to do something...
  39.    f=GetUIElement(ElementSubIndex)
  40.    j=RegReadValue(sP & "\" & f)
  41.    k=InputWindow("Please type in the path of a new cursor",j,1)
  42.    if IsEmpty(k)=false then
  43.     Call RegWriteValue(sP & "\" & f,k,1)
  44.    end if
  45.   else
  46.    Call MsgWarning("No item selected - please select an item first.")
  47.   end if
  48.  end if
  49. END SUB
  50.  
  51. SUB Plugin_Terminate
  52. END SUB